home *** CD-ROM | disk | FTP | other *** search
- #ifndef PRAGMAS_CHOOSER_PRAGMAS_H
- #define PRAGMAS_CHOOSER_PRAGMAS_H
-
- /*
- ** $VER: chooser_pragmas.h 1.1 (6.10.1999)
- ** Includes Release 44.1
- **
- ** Direct ROM interface (pragma) definitions.
- **
- ** Copyright © 1999 Amiga, Inc.
- ** All Rights Reserved
- */
-
- #if defined(LATTICE) || defined(__SASC) || defined(_DCC)
- #ifndef __CLIB_PRAGMA_LIBCALL
- #define __CLIB_PRAGMA_LIBCALL
- #endif /* __CLIB_PRAGMA_LIBCALL */
- #else /* __MAXON__, __STORM__ or AZTEC_C */
- #ifndef __CLIB_PRAGMA_AMICALL
- #define __CLIB_PRAGMA_AMICALL
- #endif /* __CLIB_PRAGMA_AMICALL */
- #endif /* */
-
- #if defined(__SASC) || defined(__STORM__)
- #ifndef __CLIB_PRAGMA_TAGCALL
- #define __CLIB_PRAGMA_TAGCALL
- #endif /* __CLIB_PRAGMA_TAGCALL */
- #endif /* __MAXON__, __STORM__ or AZTEC_C */
-
- #ifndef CLIB_CHOOSER_PROTOS_H
- #include <clib/chooser_protos.h>
- #endif /* CLIB_CHOOSER_PROTOS_H */
-
- #ifdef __CLIB_PRAGMA_LIBCALL
- #pragma libcall ChooserBase CHOOSER_GetClass 1e 00
- #endif /* __CLIB_PRAGMA_LIBCALL */
- #ifdef __CLIB_PRAGMA_AMICALL
- #pragma amicall(ChooserBase, 0x1e, CHOOSER_GetClass())
- #endif /* __CLIB_PRAGMA_AMICALL */
- #ifdef __CLIB_PRAGMA_LIBCALL
- #pragma libcall ChooserBase AllocChooserNodeA 24 801
- #endif /* __CLIB_PRAGMA_LIBCALL */
- #ifdef __CLIB_PRAGMA_AMICALL
- #pragma amicall(ChooserBase, 0x24, AllocChooserNodeA(a0))
- #endif /* __CLIB_PRAGMA_AMICALL */
- #ifdef __CLIB_PRAGMA_TAGCALL
- #ifdef __CLIB_PRAGMA_LIBCALL
- #pragma tagcall ChooserBase AllocChooserNode 24 801
- #endif /* __CLIB_PRAGMA_LIBCALL */
- #ifdef __CLIB_PRAGMA_AMICALL
- #pragma tagcall(ChooserBase, 0x24, AllocChooserNode(a0))
- #endif /* __CLIB_PRAGMA_AMICALL */
- #endif /* __CLIB_PRAGMA_TAGCALL */
- #ifdef __CLIB_PRAGMA_LIBCALL
- #pragma libcall ChooserBase FreeChooserNode 2a 801
- #endif /* __CLIB_PRAGMA_LIBCALL */
- #ifdef __CLIB_PRAGMA_AMICALL
- #pragma amicall(ChooserBase, 0x2a, FreeChooserNode(a0))
- #endif /* __CLIB_PRAGMA_AMICALL */
- #ifdef __CLIB_PRAGMA_LIBCALL
- #pragma libcall ChooserBase SetChooserNodeAttrsA 30 9802
- #endif /* __CLIB_PRAGMA_LIBCALL */
- #ifdef __CLIB_PRAGMA_AMICALL
- #pragma amicall(ChooserBase, 0x30, SetChooserNodeAttrsA(a0,a1))
- #endif /* __CLIB_PRAGMA_AMICALL */
- #ifdef __CLIB_PRAGMA_TAGCALL
- #ifdef __CLIB_PRAGMA_LIBCALL
- #pragma tagcall ChooserBase SetChooserNodeAttrs 30 9802
- #endif /* __CLIB_PRAGMA_LIBCALL */
- #ifdef __CLIB_PRAGMA_AMICALL
- #pragma tagcall(ChooserBase, 0x30, SetChooserNodeAttrs(a0,a1))
- #endif /* __CLIB_PRAGMA_AMICALL */
- #endif /* __CLIB_PRAGMA_TAGCALL */
- #ifdef __CLIB_PRAGMA_LIBCALL
- #pragma libcall ChooserBase GetChooserNodeAttrsA 36 9802
- #endif /* __CLIB_PRAGMA_LIBCALL */
- #ifdef __CLIB_PRAGMA_AMICALL
- #pragma amicall(ChooserBase, 0x36, GetChooserNodeAttrsA(a0,a1))
- #endif /* __CLIB_PRAGMA_AMICALL */
- #ifdef __CLIB_PRAGMA_TAGCALL
- #ifdef __CLIB_PRAGMA_LIBCALL
- #pragma tagcall ChooserBase GetChooserNodeAttrs 36 9802
- #endif /* __CLIB_PRAGMA_LIBCALL */
- #ifdef __CLIB_PRAGMA_AMICALL
- #pragma tagcall(ChooserBase, 0x36, GetChooserNodeAttrs(a0,a1))
- #endif /* __CLIB_PRAGMA_AMICALL */
- #endif /* __CLIB_PRAGMA_TAGCALL */
-
- #endif /* PRAGMAS_CHOOSER_PRAGMAS_H */
-